Filterung eines Namens aus einer Textdatei

[neko77]

Hi Leute, der Blonde ist zurück.

Ich habe eine externe Txtdatei wo Name; Vorname; Geb. von verschiedenen Personen untereinander stehen. Durch eingabe des Namens in ein Editfeld und klicken auf ein Button soll die Personen mit dem Namen in eine Listbox eingefügt werden.

Bis jetzt habe ich nur den Ansatz. und zemirbe mir den Kopf wie ich das mit Pos in verbindung bekomme.

procedure TForm1.btnsuchenClick (Sender: TObject);
VAR

F:textfile;
i,zeilen,laenge:integer;
s:string:

begin;

laenge:=length (s);
assignfile(F,'C:\tmp\Krankenhaus\Namen.txt');
{$I-}
reaset(F);

{$I+}

if IOResult <> 0 then exit;

while not eof (F) do begin
readln (F,s) ;

lbxpatienten.items.add(s);

end;
closefile(f);

Was habe ich falsch gemacht? oder kann ich ausführen um den gewünschten Effekt zu haben?

Lg Neko