String -> PChar ..FEHLER =(

[sakura]

So

Code:

procedure TForm1.TimerTimer(Sender: TObject);
var [color=#f50000][s]channel:PChar;[/s][/color]
        hOE: hWnd;
begin
[s][color=#f50000]channel := PCHAR(Edit1.text);[/color][/s]
if (x=30) AND (message1<>'')
 then begin
        hOE:=FindWindow(nil, [color=#f50000]PChar(' Channel: ' + Edit1.text)[/color]);
        SetForegroundWindow(hOE);
        SendKeys(message1);
        SendKeys(#13);
      end;
...

......