[~TB~]

Electronic_Arts, а если Login это строковая переменная\константа?

Раз по какой-то странной причине совет AND_REY не помог (хз, у меня все работает), попробуйте так:

Код:

var
 sl: TStringList;

begin
 sl:=TStringList.Create;
 sl.SetText(ListBox1.Items.GetText);
 if sl.Values[Login] = '' then
 begin
 sl.Values[Login] := edit1;
 ListBox1.Items.SetText(sl.GetText);
 LastMess := mMess.Lines.Count;
 end;
 FreeAndNil(sl);
end;

Дикое извращение конечно.