Renombrar archivos siguiendo ciertas reglas

[mibandeja]

Hola a todos, antes que nada gracias por leer estas lineas. Mi consulta el la siguiente.

Estoy tratando de crear un aplicación que renombre archivos pdf (que ya existen), en base a otro archivo (un .REC) que en cada comienzo de linea contiene un numero que es el que debo utilizar para renombrar a los pdf, ej. el .REC si contiene 2 lineas por ej.

0101 32blablabla
0102 45blablabla

Yo tengo te tomar el 0101 y el 0102 para renombrar a los pdf y queden como 0101_xxxx.PDF y 0102_xxxx.PDF. por Ahora tengo esto en codigo.

Código Delphi [-]
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
cmdAbrir: TButton;
OpenDialog1: TOpenDialog;
cmdRenombrarPDF: TButton;
procedure cmdAbrirClick(Sender: TObject);
procedure cmdRenombrarPDFClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f: TextFile;
strLine: String;
strValor: String;

implementation

{$R *.dfm}

procedure TForm1.cmdAbrirClick(Sender: TObject);
begin

OpenDialog1.FileName := '';
OpenDialog1.Execute;
Edit1.Text := OpenDialog1.FileName;
AssignFile(f, 'Factura_A_200809.rec');
if FileExists('Factura_A_200809.rec') then
begin
FileMode := 0; //Set file access to read only
Reset(f);
i := 0;
while not SeekEof(f) do
begin
Readln(f, strLine);
............ //Hacer lo que tenga que hacer con cada línea
strValor := MidStr(strLine,17,12); //Para tomar un pedazo de la linea usar:

end;
end;
end;

procedure TForm1.cmdRenombrarPDFClick(Sender: TObject);
begin
showmessage(edit1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Edit1.ReadOnly := True;
OpenDialog1.Filter := 'Archivo de Registros (*.rec)|*.rec|';
cmdRenombrarPDF.Enabled := False;
end;

end.

Gracias por la ayuda que puedan brindarme.