Código
form1.capition:='delphi';
//insira um time e de um duplo clik e digite os comandos
var
texto: string;
begin
texto:= form1.capition;
form1.capition:= copy(texto,2,length(texto))+ texto[1];
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009