[CAHbKA]

Народ Помощь нужна как совместить Console Aplication и Aplication у меня просто в консоле один код и нало его совместить или как прописать этот код в Aplication

Код:

program pfileMode;
{$APPTYPE CONSOLE}
uses SysUtils;

var
  oldFM: integer;
var
  SR: TSearchRec;

begin
  if FindFirst('C:\*.*', faAnyFile, SR) = 0 then
    repeat
      try
        oldFM := FileMode;
        FileMode := 0;
        WriteLn(SR.Name);
        //работаем с файлом
      finally
        FileMode := oldFM;
      end;
    until FindNext(SR) < > 0;
  FindClose(SR);
  readLn;
end.