{....................}
  const
  Text = 'Это я хочу записать в файл!'; // Отсюда буду писать

var
  FileHandel:Integer;
  DS:integer;

 begin
    DS:=50; // Кол-во символов
    FileHandel := FileCreate(Pchar('samplefile.samp'),0);
    FileOpen('samplefile.samp',fmOpenReadWrite);
    FileWrite(FileHandel,Text,DS);
    FileClose(FileHandel);
 end.