Free pascal: сделать текстовое поле, аналог TEdit из Delphi

[Ilai]

Добрый день!

Помогите пожалуйста сделать во Free Pascal c помощью графического модуля поле, в которое вводится информация, а затем, после нажатия кнопки "ОК", находящейся рядом с полем, строка записывается в переменную типа string.

[Stilet]

c помощью графического модуля

Это какого?

[Stanislav]

Сообщение от Stilet

Это какого?

может graph?

[Ilai]

Сообщение от Stilet

Это какого?

Unit graph

[Stilet]

Турбопаскалевский со скорой руки устроит?:

uses crt,graph;
var s:string; dr,md,i:integer; c:char;

 function edit(x,y,w,h:integer):String;
 var s:string; tw,k:integer;
 begin
  s:='';
  rectangle(x-10,y-10,x+w,y+h);
  i:=0;
  k:=TextWidth('W');
  SetFillStyle(1,black);
  repeat
   c:=readkey;
   if c in ['a'..'z'] then s:=s+c;
   tw:=TextWidth(s);
   if tw>w then begin
    bar(x-9,y-9,x+w-2,y+h-2);
    outtextxy(100+i,100,copy(s,Length(s)-(w div k)+1,Length(s)));
   end else begin
    outtextxy(100+i,100,s);
   end;
  until c=#13;
  edit:=s;
 end;

begin
dr:=detect;
initgraph(dr,md,'c:\tp\bgi');
s:=edit(100,100,50,20);
closegraph;
writeln(s); readln;
end.

[Ilai]

Сообщение от Stilet

Турбопаскалевский со скорой руки устроит?:

uses crt,graph;
var s:string; dr,md,i:integer; c:char;

 function edit(x,y,w,h:integer):String;
 var s:string; tw,k:integer;
 begin
  s:='';
  rectangle(x-10,y-10,x+w,y+h);
  i:=0;
  k:=TextWidth('W');
  SetFillStyle(1,black);
  repeat
   c:=readkey;
   if c in ['a'..'z'] then s:=s+c;
   tw:=TextWidth(s);
   if tw>w then begin
    bar(x-9,y-9,x+w-2,y+h-2);
    outtextxy(100+i,100,copy(s,Length(s)-(w div k)+1,Length(s)));
   end else begin
    outtextxy(100+i,100,s);
   end;
  until c=#13;
  edit:=s;
 end;

begin
dr:=detect;
initgraph(dr,md,'c:\tp\bgi');
s:=edit(100,100,50,20);
closegraph;
writeln(s); readln;
end.

Попробовал запустить, на экране только черный прямоугольник с белым контуром. Внутри ничего не вводится. И если не сложно, можно сделать это во Free Pascal? Или слишком тяжело?

[FPaul]

Говорят, помогает замена Crt на WinCrt.

[Ilai]

Сообщение от FPaul

Говорят, помогает замена Crt на WinCrt.

Попробовал, всё равно все также