Busca com SQL e preenchimento de arquivo texto

Olá pessoal.

Boa tarde...

Tenho que gerar um arquivo texto a partir de dados contidos em uma tabela.

Nesta tabela há os seguintes campos.

Codpeca, Diamferram, CoordX, CoordY, ZProf.

Daí gero o seguinte aquivo texto

T01
X0000120Y0000060Z0000005
T02
X0000080Y0000060Z0000005
X0000040Y0000060Z0000005
X0000040Y0000060Z0000005
X0000040Y0000060Z0000005

T03
X0000130Y0000060Z0000004
X0000100Y0000060Z0000004

T04
X0000120Y0000060Z0000005

Neste caso, a procedure está lendo a tabela toda.
O campo CodPeca para T01 e T03, por exemplo é Cod001
O campo CodPeca para T01 e T03, por exemplo é Cod002.

Preciso gerar o arquivo texto, mas filtrando os T0, T1, Tx, pelo código da peça e dai gerar o artquivo texto.

Então se em um Campo edit (codigo Peça) eu escrever Cod002, vai gerar o texto

T01
X0000120Y0000060Z0000005

T03
X0000130Y0000060Z0000004
X0000100Y0000060Z0000004

Tentei com SQL, mas não está saindo corretamente.

A procedure que uso é esta abaixo.
Alguma santa alma pode ajudar?
Agradeço e muito

procedure TForm1.btnCriaArqTextoClick(Sender: TObject);
var
Str1, Str2 : String;
begin
if TableCorte.IsEmpty then
begin

 Showmessage('Tabela Vazia');
 exit;
 end;

 TableCorte.First;
 Memo1.Clear;
 while not TableCorte.Eof do
 begin
 Str1 := tableCorte.FieldByName('DiamFerram').AsString;

 if Str2 <> Str1 then
 begin
 Str2 := Str1;
 Memo1.Lines.Add(Str2);
 end;
 Memo1.Lines.Add('X' + PreencheCaractereEsq(TableCorte.FieldByname('FuroCoordX').AsString, '0', 7) +
 'Y' + PreencheCaractereEsq(TableCorte.FieldByname('FuroCoordY').AsString, '0', 7) +
 'Z' + PreencheCaractereEsq(TableCorte.FieldByname('FuroProfZ').AsString, '0', 7));
 TableCorte.Next;
 end;
end;