[lmikle]

Код:

procedure TForm1.RecordButtonClick(Sender: TObject);
var  
  Ext : String; 
  FileName : String;
begin
  // Вот здесь нужно что бы запись шла в файл автоматически с присвоением текущей даты и времени  
  FileName := ExtractFilePath(ParamStr(0))+DateTimeToStr(Now()) + '.ogg';  // Здесь формат поправить!!! 
  if Ext = '.ogg' then  
    begin    
      Output := VorbisOut1; 
    end;  
  Output.FileName := FileName;  
  RecordButton.Enabled := False;  
  SelectFileButton.Enabled := False;  
  SpinEdit2.Enabled := False;  
  Output.Run;  
  label6.Caption := Format('Caienu a "%s"', [ExtractFileName(FileName)]);
end;