Каретка после текста

[Shouldercannon]

Помогите пожалуйста разобраться. Как сделать, чтобы после выбора ника из ListBox и размещения его в Memo каретка автоматически вставала после текста в Memo.
Пока так: |Georg:
Надо так: Georg:|

[NikLik]

memo1.Text:='123123';
activecontrol:=memo1;
memo1.SelStart:=length(memo1.Text);

[Johnson]

NikLik, а причем тут выделение текста?

Shouldercannon, тебе лучше сделать немного по другому:
при шелчке по списку - ничего не делать, а во шелчку по кнопке - следующее:

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp:string;
begin
if Memo2.Text <> '' then
tmp:=ListBox1.Items.Strings[ListBox1.ItemIndex];
Memo1.Lines.Add(tmp+': '+Memo2.Text);
ActiveControl:=Memo2;
Memo2.Clear;
end;

так будет более удобно и не будет гемороя с позицией курсора )
ну там сделай её проверку на выделение списка, либо ОнФормКрит добавь строку:

ListBox1.ItemIndex:=0;

[zetrix]

NikLik, а причем тут выделение текста?

всё правильно, только ещё бы фокус перевести надо:

 memo1.SelStart:=length(memo1.Text);
 memo1.SetFocus;

Но если это чат, то обычно текст сообщения вводят в Edit-e, а в МЕМО добавляют только в самом конце (добавляется строка, содержащая ник и текст сообщения. т.е. проблем с кареткой не будет), когда данные уже были отправлены.