[[Al González]]

Se me ocurre esta otra:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := PChar (@Edit1.Text [2]);
end;