function GrossKlein(datei: string; gross: boolean): boolean; 
var 
  tms: TMemorystream; 
begin 
  tms := TMemorystream.create; 
  try 
    tms.loadfromfile(datei); 
    if gross then 
      charupperbuff(tms.memory, tms.size) 
    else 
      charlowerbuff(tms.memory, tms.size); 
    tms.savetofile(datei); 
  except 
    tms.free; 
    result := false; 
    exit; 
  end; 
  result := true; 
  tms.free; 
end; 
 
// Umwandlung in Großbuchstaben (true) 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  if not grossklein('c:\test.txt', true) then showmessage('Fehler'); 
end;