procedure TForm1.Button1Click(Sender: TObject);
type
kume=set of char;
var
th:kume;
k:integer;
begin
//forma 1 adet edit ve button kontrol elemanıkoyun.
th:=['ı','İ','ü','Ü','ş','Ş','ö','Ö','ç','Ç','ğ','Ğ'];
for k:=1 to length(edit1.text) do
begin
if edit1.text[k] in th then
showmessage('Lütfen Türkçe karekter kullanmayınız.');
end;
end;