文本文件裡有下面內容：
Mobile No: 19320000
Serial No: 980170001C
PUK1: 18114356
Mobile No: 19320001
Serial No: 980170002C
PUK1: 94508917
Mobile No: 19320002
Serial No: 980170003C
PUK1: 48698754
Mobile No: 19320003
Serial No: 980170004C
PUK1: 09928664
Mobile No: 19320004
Serial No: 980170005C
PUK1: 41113467
Mobile No: 19320005

想從該.txt文件中讀出PUK1:的列的值到Excel中

目前我是將之讀到Memo中，但有沒有辦法能直接讀到Excel呢？

procedure TForm1.BitBtn1Click(Sender: TObject);
var
s: string;
ff: textfile;

XLApp,Sheet :Variant;
begin
opendialog1.Filter:='*.TXT|*.txt';
if opendialog1.Execute then
begin
memo1.Clear;
AssignFile(ff, OpenDialog1.FileName);
Reset(ff);
while not Eof(ff) do
begin
readln(ff, s);
if leftstr(s,length(edit1.text))=trim(edit1.Text) then
begin
memo1.Lines.Add(s);
end;

end;

Clipboard.AsText:=StringReplace(Memo1.Text,':',char(9),[rfReplaceAll]);
XLApp := CreateOleObject('Excel.Application');
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name := 'sheet1';
Sheet := XLApp.Workbooks[1].WorkSheets['sheet1'];
Sheet.Paste;
XLApp.Visible:=true;

CloseFile(ff);
end;

自已搞定佐，唔該曬