Captionはどうなりますか？
コンパイルせずに答えて！
>>708

procedure TForm1.Button1Click(Sender: TObject);
var
　Dummy: array[0..1] of Char;
　Buf: array[0..9] of Char;
　S: string;
begin
　Dummy[0] := 'A';
　Dummy[1] := 'B';
　S := '0123456789';
　StrPLCopy(Buf, S, SizeOf(Buf));
　Caption := Buf + Dummy;
end;