Save til txt fil.

Kode 

   try
      memo1.lines.savetofile('laks.txt');
   except
      ShowMessage('Kunne ikke gemme filen');
   end;

Pascal kode 

 function FileInUse(FileName: string): Boolean;
 var hFileRes: HFILE;
 begin
   Result := False;
   if not FileExists(FileName) then exit;
   hFileRes := CreateFile(PChar(FileName),
                                     GENERIC_READ or GENERIC_WRITE,
                                     0,
                                     nil,
                                     OPEN_EXISTING,
                                     FILE_ATTRIBUTE_NORMAL,
                                     0);
   Result := (hFileRes = INVALID_HANDLE_VALUE);
   if not Result then 
     CloseHandle(hFileRes);
 end;
 
 if(FileInUse('systemfil.txt')) then
 ShowMessage('Filen er i brug!') else Memo1.Lines.SaveToFile('systemfil.txt');

Kode 

function FileInUse(FileName: string): Boolean;
var hFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then exit;
  hFileRes := CreateFile(PChar(FileName),
                                    GENERIC_READ or GENERIC_WRITE,
                                    0,
                                    nil,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Result := (hFileRes = INVALID_HANDLE_VALUE);
  if not Result then 
    CloseHandle(hFileRes);
end;

Kode 

var fs: TStream;
begin
   fs := TFileStream.Create('testfil.txt', fmOpenWrite);
   Memo1.lines.SaveToStream(fs);
   Memo2.lines.SaveToStream(fs);
   fs.free;
end;