*字符串替换问题 ( 积分: 0 )

已知在memo1中，有如下的字符串格式：
501 试验 shi4 yan4
502 眼光 yan3 guang1
503 过程 guo4 cheng2
504 树林 shu4 lin2
505 地方 di4 fang1

1.如何去掉其中的数字和汉字和空格，仅保留英文：
使其成为如下的格式:
shiyan
yanguang
guocheng
shulin
difang

判断ascii码值的范围

procedure TForm1.Button1Click(Sender: TObject);
var
F: TDSInfo;
i,j: Integer;
S,S1: string;
begin
//Dec(Message.Msg, WM_LBUTTONDBLCLK - WM_LBUTTONDOWN)
// Message.Msg := Message.Msg - (WM_LBUTTONDBLCLK - WM_LBUTTONDOWN);
//F := F-[DS1];
//Dec(F,[DS1]);
for i := 0 to Memo1.Lines.Count-1 do
begin
S := Memo1.Lines.ValueFromIndex;
S1 := '';
for j := 1 to Length(S) do
if S[j] in ['a'..'z','A'..'Z'] then
S1 := S1 +S[j];
Memo2.Lines.Add(S1);
end;
end;