You can use the SC-Tool to style your delphi-sourcecode.
For example if you have:

function temp : String;
begin
Suchwoerter := TStringList.Create;
for e := 0 To 1 Do
begin   

Suchwoerter.AddStrings('test');   
end;
Suchwoerter.Free;

ShowMessage ('');
end;

SC-Tool will change it to:

function temp : String;
begin
 Suchwoerter := TStringList.Create;
 for e := 0 To 1 Do
  begin   
   Suchwoerter.AddStrings('test');   
  end;
 Suchwoerter.Free;

 ShowMessage ('');
end;