Ввод текста в graphABC

uses graphABC;
 
Type Word=Record
  english:string;
  russian:string;
  synonym1:string;
  synonym2:string;
  synonym3:string;
  partofspeech:string;
  time:string;
  chislo:string;
  padezh:string;
  SentenceEng:string;
  SentenceRus:string;
  end;
  
var background:picture;
    background1:picture;
    active, translation, how, aboutauthor,boolword:boolean;
    a,slovo:string;
    sound1: system.Media.SoundPlayer;
    sound2: system.Media.SoundPlayer;
    
    
    
    
procedure KeyDown(Key: integer);
begin
  if key=vk_Escape then begin translation:=false; sound1.Stop; end;
  if key=vk_Escape then begin how:=false; sound1.Stop; end;
  if key=vk_Escape then begin aboutauthor:=false; sound1.Stop; end;
end;
 
procedure MouseUp(x,y,mb:integer);
begin
  if (mb = 1) and (x > 370) and (x < 680) and (y > 160 ) and (y < 215) then begin translation:=true; end;
  if (mb = 1) and (x > 370) and (x < 680) and (y > 240 ) and (y < 295) then begin how:=true; sound1.PlayLooping; end;
  if (mb = 1) and (x > 370) and (x < 680) and (y > 320 ) and (y < 375) then begin aboutauthor:=true; sound2.PlayLooping ; end;
  if (mb = 1) and (x > 370) and (x < 680) and (y > 400 ) and (y < 455) then  active:=false;
  if (mb = 1) and (x > 420) and (x < 580) and (y > 530 ) and (y < 585) and (how = true) then begin active:=true; how:=false;  sound1.Stop; sound2.Stop; end;
  if (mb = 1) and (x > 420) and (x < 580) and (y > 530 ) and (y < 585) and (aboutauthor = true) then begin active:=true; aboutauthor:=false; sound1.Stop; sound2.Stop; end;
end;
 
procedure Vvod(Key: integer);
begin
  case key of
    //------------------------------------
    48..57, 65..90, 97..122: // Условие нажатия на символьные клавиши
      begin
        SetBrushColor(clWhite);
        if boolword then 
        begin 
          slovo:= slovo + chr(key);
          TextOut(310, 85, slovo); 
        end;
 
      end;
    // ----------------------------------
  
    // Условия нажатия на Delete и т.п. - можно прописать
  
  end;
end;
 
procedure Click(x, y, mb: integer);
begin
  if (mb = 1) and (x > 300) and (x <700) and (y > 80) and (y < 115) then 
  begin
    boolword := true;
    OnKeyDown := Vvod;
  end;
  
  if boolword then
  begin
    clearwindow;
    SetBrushColor(clWhite);
    setfontsize(15);
    Rectangle(300,80,700,115);
    TextOut(310, 85, slovo);
    redraw;
  end
end;
 
begin
  window.Caption:='Англо-русский переводчик';
  SetWindowSize(1000,625);
  window.IsFixedSize:= true;
  LockDrawing;
  OnKeyDown:=KeyDown;
  OnMouseUp:=MouseUp;
  background:=picture.Create('fon.jpg');
  background1:=picture.Create('fontranslation.jpg');
  sound1:=new system.Media.SoundPlayer;
  sound1.SoundLocation:='music.wav';
  sound2:=new system.Media.SoundPlayer;
  sound2.SoundLocation:='music1.wav';
  active:=true;
  
  while active do
  begin
  ClearWindow;
  //Menu
  sound1.Stop;
  sound2.Stop;
  background.Draw(0,0);
  SetPenColor(clsilver);
  SetFontColor(clblack);
  SetBrushColor(clTransparent);
  setfontsize(25);
  a:='Англо-русский переводчик';
  textout(320,40,a);
  setfontsize(28);
  setbrushcolor(clwhite);
  pen.Width:=4;
  Rectangle(370,160,680,215);
  textout(410,170,'Искать слово');
  
  Rectangle(370,240,680,295);
  textout(465,250,'F.A.Q');
  
  Rectangle(370,320,680,375);
  textout(390,330,'О разработчике');
  
  Rectangle(370,400,680,455);
  textout(460,410,'Выход');
  
  setfontcolor(clsilver);
  setbrushcolor(cltransparent);
  setfontsize(17);
  textout(390,580,'All rights reserved (c) 2018');
  setfontcolor(clwhite);
  redraw;
  
  
  while translation do
    begin
    ClearWindow;
    background1.Draw(0,0);
    setfontsize(24);
    pen.Width:=3;
    setpencolor(clsilver);
    setbrushcolor(cldimgray);
    Rectangle(200,25,800,125);
    setbrushcolor(cltransparent);
    textout(275,35,'Введите слово для перевода');
    setbrushcolor(cllightgray);  
    setpencolor(clorange);
    Rectangle(300,80,700,115);
    OnMouseDown:=Click;
    Redraw;
    end;
    
   while how do
    begin
    ClearWindow;
    background.Draw(0,0);
    SetPenColor(clsilver);
    SetFontColor(clblack);
    SetBrushColor(clTransparent);
    setfontsize(29);
    textout(420,40,'F.A.Q'); 
    setbrushcolor(clwhite);
    pen.Width:=4;
    rectangle(150,100,850,500);
    
    
    rectangle(420,530,580,585);
    textout(445,533,'Назад');
    
    
    
    redraw;
    end;
    
   while aboutauthor do
    begin
    ClearWindow;
    background.Draw(0,0);
    SetPenColor(clsilver);
    SetFontColor(clblack);
    SetBrushColor(clTransparent);
    setfontsize(29);
    textout(360,40,'О разработчике'); 
    setbrushcolor(clwhite);
    pen.Width:=4;
    rectangle(150,100,850,500);
    
    
    rectangle(420,530,580,585);
    textout(445,533,'Назад');
    
    
    
    redraw;
    end;
 
  end;
  Halt;
end.