[romka]

еще такая проблема:

Код:

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я','-',' ', #8, #39, 'ё', 'Ё', 'Ї', 'ї', 'є', 'Є', 'І', 'і']) then Key := #0;
end;

не определяет русские символы
Delphi XE2