procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: array[0..200] of Char;
Key: string;
begin
Key := 'Tank77';
Move(PChar(Key)^, Buffer, 6);
Caption := Buffer;
end;
或
procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: array[0..200] of Char;
Key: string;
begin
Key := 'Tank77';
Move(Key[1], Buffer, 6);
Caption := Buffer;
end;