1:
2:
3:
4:
5:
6:

szTip := 'text';

//aber sobald eine Varbiable ins Spiel kommt
s: string;
s := 'hallo';
szTip := 'text' + s; //Fehler					

1:
2:
3:
4:

newtip: string = 'irgendeintext';

for i := 0 to Length(newtip) - 1 do
    fIconData.szTip[i] := newtip[i];					

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

var
  Form1: TForm1;
  szTip: array[0..63] of char;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  szTip := 'Hallo';
  s := ' Welt';
  caption := szTip + s;
end;					

1:

szTip := PChar('text' + s); //Fehler					

1:

szTipp := pointer('Test'+s);					

1:
2:
3:

newtip: string = 'irgendeintext'; 
for i := 1 to Length(newtip) do 
    fIconData.szTip[i-1] := newtip[i];					

1:
2:

for i := 1 to length (s) do
  wasweißich					

1:

nid.szTip := pchar('Test' + s);					

1:

StrPCopy(nid.szTip,'Test' + s);					

1:

lstrcpy(nid.szTip,pchar('Test' + s));