Как ограничть вывод текста?

[KWN, lnc]

Хотелось бы чтобы при выводе ограничелась текстовочка
скажем в 16 букв. (пробелы так же фиксировались) а после них многоточие ...
пример

RichEdit1.Text := 'Программирование в Делпхи';

Form1.Caption := RichEdit1.Text

а вывод такой

Form1.Caption := 'Программирование...';

[KORN]

и в чем проблема7 копируешь сколько тебе нужно символов (функция copy если кто не знает) и прибавляешь ...

[KWN, lnc]

КОRN

знаю только один вариант как ограничить ввод

procedure TForm1.FormCreate(Sender: TObject);
var
cRect : TRect;
bm : TBitmap;
s : string;
begin
Windows.GetClientRect(Edit1.Handle, cRect);
bm := TBitmap.Create;
bm.Width := cRect.Right;
bm.Height := cRect.Bottom;
bm.Canvas.Font := Edit1.Font;
s := 'W';
while bm.Canvas.TextWidth(s) < CRect.Right do
s := s + 'W';
if length(s) > 1 then
begin
Delete(s, 1, 1);
Edit1.MaxLength := Length(s);
end;
end;

а через Copy незнаю ... не подскажешь как???

пиши мой ник правильно

[DomiNick]

If Length(RichEdit1.Text)>16 Then
      Form1.Caption:=Copy(RichEdit1.Text, 0, 16)+'...'
Else
      Form1.Caption:=RichEdit1.Text;

[KWN, lnc]

DomiNick Спасибо тебе ОГРОМНОЕ!!! а то я уже пошел на глупняк...

procedure TForm1.Edit1Change(Sender: TObject);
var
s: string[10];
begin
s:=Edit1.Text;
end;