String durchsuchen

[Uncle Cracker]

Ok, hat sich erledigt, habe selbst eine Lösung gefunden:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
if(pos('.dll',lowercase('C:\Test.Dll')) > 0)  then
Label1.Caption:='DLL-Datei' else Label1.Caption:='Keine DLL-Datei'
end;