procedure DeleteRus(text:string);
var c:char;
begin
for c:='А' to 'я' do
text:=StringReplace(text,с,'',[rfReplaceAll, rfIgnoreCase]);
end;

var s:string;
begin
s:='хзчтоздgdfgsds36есь';
DeleteRus(s);
end;