Проверка символов

[HTL]

Рус буквы можно вставить при помощи Ctrl + V , поэтому надо будит написать в обработчики батона код что типа если здесь (edit1) есть рус буква или провел то....

Как это правельно сделать

[Ntlegend]

попробуй так:

procedure TForm1.Edit1Change(Sender: TObject);
var s, s1:string;
    i:integer;
begin
s:=Edit1.Text;
for i:=1 to Length(s) do
 if not (s[i] in ['А'..'Я']+['а'..'я']+[' '])
  then s1:=s1+s[i];
Edit1.Text:=s1;
end;

Извеняюся.. пропустил точку с запятой.. а вы, HTL, разобралися бы в коде, а не просто скопировали его

[HTL]

begin
s:=Edit1.Text;
for i:=1 to Length(s) do
 if not (s[i] in ['А'..'Я']+['а'..'я']+[' '])
  then s1:=s1+s[i]
Edit1.Text:=s1;
end;

в этой строчке ошибка (После "Edit1" но до "."):
[Error] Unit1.pas(95): Missing operator or semicolon

[Peter20]

Сообщение от HTL

s[i] in ['А'..'Я']+['а'..'я']+[' '])

даже если текст программы и символы строки в одинаковой кодировке CP1251,
то буквы 'ё' и 'Ё' не попадут во множество

[Stilet]

Ntlegend

Ну начнем с того что автор всетки просил обработчик кнопки а не эдита.

в обработчики батона

Во-вторых не очень корректно вызывать изменение свойства text эдита обработчик которого сейчас выполняется - можно нарваться на перегруз стека.
В-третьих: Автору нужно простопроверить есть ли русские буквы, так что я бы на его месте сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;
begin s:=Edit1.Text;
i:=1; while (i<length(s))and(s[i] in ['а'..'я','А'..'Я']) do inc(i);
if (i<length(s)) then // Есть русские буквы
end;

[HTL]

Сообщение от Stilet

Ну начнем с того что автор всетки просил обработчик кнопки а не эдита.

Во-вторых не очень корректно вызывать изменение свойства text эдита обработчик которого сейчас выполняется - можно нарваться на перегруз стека.
В-третьих: Автору нужно простопроверить есть ли русские буквы, так что я бы на его месте сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;
begin s:=Edit1.Text;
i:=1; while (i<length(s))and(s[i] in ['а'..'я','А'..'Я']) do inc(i);
if (i<length(s)) then // Есть русские буквы
end;

Не проходит, на все думает что рус буквы

[Stilet]

Ну а самому додумать условие хотя бы методом тыка не судьба?

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;
begin s:=Edit1.Text;
i:=1;s:=s+'.';
 while (i<length(s))and not (s[i] in ['а'..'я','А'..'Я']) do
 inc(i);
if (i<length(s)) then caption:='есть' else caption:='Нет';
end;