Номера строк для блокнота

[__@cmd@__]

Помогите плз застрял на одном месте
У меня такая проблема я хочу сделаьть чтобы в моем блокноте отображались номера строк (как в notepad++ или SciTE) Для этого я использовал поле MEMO

Вот как я пишу:

procedure TForm1.FormCreate(Sender: TObject);
var
i,:String;
b,:integer;
begin
for b:=1 to 2500 do Memo2.Lines.add(str(b,i));
end;

Я не профи конечно но вроде все делаю по правилам а при таком доюавлении в сточки мемо выдает ошибку типо [DCC Warning] Unit1.pas(279): W1057 Implicit string cast from 'ShortString' to 'string'

[Terran]

procedure TForm1.FormCreate(Sender: TObject);
var
i:String;
b:integer;
begin
for b:=1 to 2500 do
Memo1.Lines.add(inttostr(b)+' '+i);
end;

[r9m]

посмотри вот тут: http://programmersforum.ru/showthrea...865#post196865

[__@cmd@__]

Terran Огромное спасибо

[__@cmd@__]

ОЙ а можно еще одну вещь уточнить
Вот все теперь работает цикл показывает номера строк а допустим если опускаться ниже по мемо1(там где вводиться текст) то норм а на мемо2 не опускаеться там скролбар по вертикале ставить или еще какой способ есть?

[Kotofff]

Сообщение от __@cmd@__

.... я сделал чтобы при растягивани они изменялись

Memo2.Height := Memo1.ClientHeight +1;

У компонентов есть свойство : Anchors - привязка краев к родительскому контролу, например к основной форме...

P.S.
Не плоди темы ... продолжай разговор тут ... накажут ...