Delphi работа с файлами

Ребят помогите по делфи пожалуйста)

N := FindFirst('*.test'+id, faAnyFile, SR);
while N = 0 do
begin
DeleteFile(SR.name);
N := FindNext(SR);
end;
findclose(sr);

так удаляются все файлы в дериктории с маской *.test + переменная id
а мне нужно чтоб он делал следующее

N := FindFirst('*.test'+id, faAnyFile, SR);
while N = 0 do
begin
RenameFile(SR.name, ..);
N := FindNext(SR);
end;
findclose(sr);

вместо 3х точек где ренеймфайл что нужно написать чтоб он все найденные файлы по маске переименовывал так чтоб название файла оставалось не изменным но менялся тип скажем на test??