ListBox

[eoln]

var
  d: integer;
begin
  d := 0;
  while d <= listbox1.Count - 1 do 
    if pos('<empty>', listbox1.Items.strings[d]) <> 0 then
      listbox1.items.Delete(d) else inc(d)
end;

[Stilet]

Как из ListBox удалить пустые строки?

Еще один альтернативный способ:

while pos(#13#10#13#10,ListBox1.Items.Text)<>0 do
 ListBox1.Items.Text:=StringReplace(ListBox1.Items.Text,#13#10#13#10,#13#10,[rfReplaceAll]);

:D :D

[Shouldercannon]

В этом случае удаляются все строки имеющие в конце <empty>, пустые же строки отсаются.
var
d: integer;
begin
d:= 0;
while d <= listbox1.Count - 1 do
if pos('<empty>', listbox1.Items.strings[d]) <> 0 then
listbox1.items.Delete(d) else inc(d)
end;

А в этом случае пустые строки удаляются все кроме самой первой, которая находится поверх списка:
while pos(#13#10#13#10,ListBox1.Items.Tex t)<>0 do
ListBox1.Items.Text:=StringReplace( ListBox1.Items.Text,#13#10#13#10,#1 3#10,[rfReplaceAll]);

[eoln]

Заменить это

if pos('<empty>', listbox1.Items.strings[d]) <> 0 then

на это

if (pos('<empty>', listbox1.Items.strings[d]) <> 0) 
or (listbox1.Items.strings[d] = '') then

Будут удаляться и пустые и содержащие '"<empty>"

[Stilet]

А в этом случае пустые строки удаляются все кроме самой первой

Ну дык первую удаляй индивидуально.

[Shouldercannon]

Как нужно модернизировать данный код, чтобы после пароля небыло ; (77.108.194.247;27888;empty;)?

function VarPos(var sBuffer: string; Delim: char = #13): string;
var
Poz: Integer;
begin
Poz:=Pos(Delim, sBuffer);
Result:=Copy(sBuffer, 0, Poz-1);
Delete(sBuffer, 1, Poz);
end;

procedure TForm1.LBServersMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
SomStr: string;
begin
if LBServers.ItemIndex < 0 then begin
Exit;
end;
SomStr:=LBServers.Items[LBServers.ItemIndex];
EIP.Text:=VarPos(SomStr, ';');
EPort.Text:=VarPos(SomStr, ';');
EPas.Text:=VarPos(SomStr, ';');
end;