Вставка текста перед написанным текстом

uses ComObj;
//...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
s:string;
WsShell: OleVariant;
begin
WsShell :=CreateOleObject('WScript.Shell');
s :=AnsiLowerCase(Edit1.Text); //считываем строку
   // AnsiLowerCase() переводит символы строки в нижний регистр
  // Для юникодных версий Delphi WideLowerCase()
if Key=#13 then begin //при нажатии Enter
if s='хороший' then
  begin
  Insert('я ', s, 1); //вставка текста в существующий
  Edit1.Text :=s; //выводим полученную строку (если необходимо)
  end;
  WsShell.Run('notepad', 1, False); //открываем Блокнот или другую указанную программу
  Sleep(200); //задержка
  WsShell.SendKeys(s, True); //посылаем ему сообщение, введенное пользователем
  WsShell.SendKeys('{ENTER}', True); //переходим на новую строку
 //можно отправить следующую строку (или команду) и т.д.
 end;
 
end;
 
end.