Ok, ich hab den einen Satz mit dem Im-Satz überlesen.
Sorry, hier also eine Funktion die funktionieren wird:
Delphi-Quellcode:
function ContainsText2(SubText, Text: String): Boolean;
begin
Result := Pos(AnsiUpperCase(SubText), AnsiUpperCase(Text)) > 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ContainsText2('weil', Edit1.Text) and ContainsText2('und', Edit1.Text) then
Caption := 'Gut';
end;