Delphi поиск файлов

[Nullerset]

Всем привет, у меня вопрос

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

var
  SR:tSearchRec;
  FindRes:integer;
  t:textfile;
begin
FindRes:=FindFirst('C:\*.*', faAnyFile, SR);
While FindRes = 0 do
  begin
    Writeln(pansichar(SR));
    FindRes:=FindNext(sr);
  end;
  FindClose(sr);
end.

Собственно я хочу вывести файлы на диске C: , но на Writeln(Pansichar(SR)); компилятор ругается, что в этом случае делать? Как вывести, именно в консоли!!!

[Delphi_ProGer]

SR.Name !!!

[Host-2013]

Writeln(pansichar(SR.Name));

[Nullerset]

Сообщение от Host-2013

Writeln(pansichar(SR.Name));

спасибо, что помогли нубу, а теперь такой вопрос, как это сделать все рекурсивно, а то вот что я пытаюсь сделать

Function Find(dir:pansichar) : pansichar;
var
SR:TSearchRec;
FindRes:Integer;
s,N:String;
p:pansichar;
begin

  findRes:=FindFirst('C:\*.*', faAnyFile, SR);
  while findres = 0 do
    begin
    p:=pansichar(dir+'\');
      IF sr.Attr = faDirectory then
        begin
          p:=pansichar(dir+'\'+SR.Name);
          Find(p);
          Writeln(p);
        end;
      N:=SR.Name;
      Writeln(dir,'\',N);
      FindRes:=FindNext(SR);
  end;
  end;

Она выводит какой то майндфак, помогите теперь с рекурсией, сори что так надоедливо я вам прошу(

[eoln]

procedure ScanDir(StartDir: string); //Процедура поиска
var  SearchRec : TSearchRec;
begin
    if StartDir[Length(StartDir)] <> '\' then
         StartDir := StartDir + '\';
    try
    if FindFirst(StartDir+'*', faAnyFile, SearchRec) = 0 then
    repeat  // Поиск вложенных файлов
        if (SearchRec.Attr and faDirectory) <> faDirectory then
            writeln(SearchRec.Name);
    until FindNext(SearchRec) <> 0;FindClose(SearchRec);
    except end;
    {разделение по каталогам}
    if FindFirst(StartDir+'*', faAnyFile, SearchRec) = 0 then
    repeat  //Поиск вложенных каталогов
        if (SearchRec.Attr and faDirectory) = faDirectory then
        if (SearchRec.Name <> '..')
            and (SearchRec.Name <> '.') then
        begin
            writeln(StartDir + SearchRec.Name + '\');
            ScanDir(StartDir + SearchRec.Name + '\');
        end;
    until FindNext(SearchRec) <> 0;FindClose(SearchRec);
end;

[phomm]

SR:tSearchRec;нельзя преобразовать в строку. Вы скорее всего имели ввиду SR.Name вместо одного SR

УПД. Сорри, поспешил с ответом, открыл тему давно и она висела в непрочитанных...