function pos pada delphi

function post pada delphi

fungsinya untuk mencari sebuah string dalam string.
berikut ini contohnya .
buat sebuath button kemudian masukan kode berikut ini :

procedure TForm1.Button1Click(Sender: TObject);
var kalimat : string;
var kata_dicari : string;
begin
  kalimat :='Niatkan Bekerja untuk ibadah bukan untuk uang';
  kata_dicari := 'ibadah';

  if Pos(UpperCase(kata_dicari),UpperCase(kalimat)) = 0 then
  begin
     showmessage('tidak ketemu');
  end else
  begin
     showmessage('ketemu');
  end;
end;