Super Danke !
hat mich nach vorne gebracht !
habe jetzt :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,a : Integer;
begin
Memo1.Lines.Loadfromfile('C:\Logfile.log');
For i:= 0 to Length(Memo1.Text) do begin
if pos('Test',Memo1.Lines[i]) > 0
THEN a := a+1;
end;
Label1.Caption:=(' '+
IntToStr(a)+' ');
end;
end.
und funzt einwandfrei !!!