.txt 文本的到入(200分)

C1-C30 abd 30
D1 dfd 20

我现需要将C1-30　分成３０条记录插入 如：
C1 abd 1
C2 abc 1
.. .. ..
C30 abc 1
D1 dfd 20

导入一个表中
数据在stringgrid 中

大家有什么好建议：

看看，這是引用別人的，會用到memo
procedure TForm1.Button1Click(Sender: TObject);
var
Str,tStr,SP : String;
S:array[1..9]of string;
i,j,n : integer;
begin
SP := ' ' ; //定义的分隔符
table1.Active:=true;
for i := 0 to memo1.Lines.count-1 do //遍历文本
begin
Str := Memo1.Lines;
tStr := '';
n := 1;
repeat
j := pos(SP,Str);
if (j > 1) then //
begin
if n in [1,3] then //要得到的第1个，第3个，第N个字段；
S[n] := Copy(Str,1,j-1);
Inc
end;
delete(Str,1,j);
until j <= 0;
with Table1 do
begin
fieldbyname('支行名称').AsString:=s[1];
fieldbyname('储蓄所').AsString:=s[2];
fieldbyname('柜员号').AsString:=s[3];
append;
post;
Active:=false;
end;
end;
end;

for i := 0 to StringGrid.Count -1 do
循环插入数据啊