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;
Дикое извращение конечно.