[sariman]

Помогите! Мне надо вызвать функцию вот код:

Код:

function TForm1.MinimizeText(const TextIn:String; Lab: Tlabel): String;
var
  Leng, A: Integer;
  FirstPart, Secondpart, tmp: String;
begin
  TMP:=TextIn;
  Leng := Length(TMP);
  if (lab.Canvas.TextWidth(TMP)) > lab.Width then begin
  A:=1;
  while (lab.canvas.TextWidth(tmp)) > lab.Width do begin
  FirstPart := LeftStr(TextIn,(leng div 2) - A);
  SecondPart := RightStr(TextIn,(Leng div 2) - A);
  tmp:=firstpart+'...'+Secondpart;
  Inc(A);
  end;
  end;
Result:=tmp;
end;

Пытаюсь вызвать:

Код:

ts.Caption:=MinimizeText(tmp);

Не работает(( подскажите плз