1:
2:
3:
4:
5:

with RichEdit do
begin
  SelAttributes.Color := Color //Machts jetzt klick?
  ...
end;                    

1:
2:

aString:  String;
aInteger: Integer;                    

1:
2:
3:

var a,b,c,d,x,y,z,v,h,i,h5,n1,ohrenschmalz:Integer;
//oder
var geschwindigkeits_korrelations_konstanten_verschiebung_horizontale_achse:Single;                    

1:
2:
3:
4:

var hallo:String;x,i:integer;s:TStringList;
begin
x:=1;i:=2;hallo:='blubb';s:=TStringList.Create;if x=v then s.add('sad'+hallo) else s.add('fuubar');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Var
    hallo: String;
    x, i: integer;
    s: TStringList;
Begin
    x := 1;
    i := 2;
    hallo := 'blubb';
    s := TStringList.Create;
    If x = v Then
        s.add('sad' + hallo)
    Else
        s.add('fuubar');
End;