muchas gracias
el codigo final que hice es este:
Código PHP:
function TForm1.recorta(Cadena: String): String;
var Resultado :string;
begin
if Length(Cadena)>30 then
begin
Resultado:=copy(Cadena,1,30);
Result:= Resultado;
end
else
Result := Cadena;
end;
y bueno ya saben como pasarle una cadena a una funcion, si hace falta algo por que no comentarlo.
gracias