1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var dummy:double;
p:integer;
begin
if key=#13 then begin
key:=#0;
try
dummy:=strtofloat(edit1.text);
except
showmessage('Edit1 enthält keine gültige Zahl');
exit;
end;
p:=pos(edit1.text,memo1.text);
if p=0 then begin
showmessage('Nichts gefunden');
exit;
end;
memo1.selstart:=p-1;
memo1.sellength:=length(edit1.text);
memo1.setfocus;
end;
end;					

1:
2:

private
  procedure Edit1KeyPress(Sender: TObject; var Key: Char);