Portapapeles TImage

[cmm07]

otra vez muchas gracias a ambos. , la verdad probé la de caro y lamentablemente no me funciono ninguna pero igual muchas gracias, despues analice la de Neftali, y saque la siguiente teoria XD: Si tenemos un TImage de un width 50 y una frase ("Hi") de 8 pixeles, sabremos la mitad del image dividiendo 50 en 2 quedaría 25, ahora si sacamos la mitad tambien del texto osea 8 / 2 quedaría en 4, tendriamos Width mitad del image: 25 y del texto o frase 4, entonces tenemos que poner el texto en la posicion de la mitad del image osea 25 y restar la mitad de la frase osea 4 y nos queda 21 y esa es la pocicion final del texto.....nose si me explkique bien, ahora si no lo entienden os dejo la instrccuion:

Código Delphi [-]
var
Texto: String;
begin
Texto:= 'jajaja lo logre';
Image1.Canvas.TextOut(round(Image1.Width /2) - round(Image1.Canvas.TextWidth(Texto) /2) , 0, Texto);

gracias..
54LU2