Код:
function TForm4.pptt2(x:string):string;//определение присутствия текста memo
begin
if pos(x,memo2.text) > 0 then Result:='да' else Result:='нет';
end;
тык по кнопке
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(pptt2('123'));
end; Админ: Последнее предупреждение по оформлению кода, далее санкции