Подбор и запоминание ответов

var
  Form1: TForm1;
  safe,Find:string;
  po,pospace,i,a:Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines[i]:=Edit1.Text+' ';
i:=i+1;
safe:=Copy(Memo1.Lines.Strings[i-1],po,Length(Memo1.Lines[i-1]));
pospace:=Pos(' ',safe);
end;
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return
then
begin
ListBox1.Items.Add(Copy(Memo1.Lines[i-1],po,pospace-1));
find:=Edit1.Text;
For a:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
end;
end;  
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Visible:=True;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Visible:=False;
end;
 
end.

For a:=0 to Memo1.Lines.Count-1 do begin
If Pos(FIND, Memo1.Lines[a])<>0
Then ListBox1.Items.Add(Memo1.Lines[a]);
end;