Mengecek suatu teks dari sebuah kalimat.

Pertama-tama buatlah applikasi baru, ukuran, font dan yang lainnya terserah anda yang jelas form itu harus terdiri dari sebuah komponen Edit, Button dan Memo.

Setelah itu masukan kode dibawah ini.

function CekTeks(s,  teks : String ): Boolean ;
var
i, ia : Integer ;
begin
  result:=false;
  for i:=1 to length(teks) do
  begin
    for ia:=1 to  length(teks) do
    begin
      if (Uppercase(copy(teks, i, ia)))=Uppercase(s) then
      begin
        result:=true;
        break;
      end;
    end;
  end;
end;

Selanjutnya pada Button1

procedure TForm1.Button1Click(Sender: TObject);
begin
If Cekteks(Edit1.Text, Memo1.Text) then
ShowMessage('Kata "'+edit1.Text+'" terdapat pada Memo1') else
ShowMessage('Kata "'+edit1.Text+'" tidak terdapat pada Memo1');
end;

Pada program ini anda diminta untuk menuliskan kata pada komponen Edit1, kemudian apabila anda menekan button1 maka program kan mencari keberadaan teks Edit1 pada Memo1. Fungsi ini akan menghasilkan true apabila teks yang anda maksud ada pada Memo1 dan kebalikannya apabila tidak ada. Teks yang anda input tidak terikat pada huruf besar atau kecil.