Не могу найти ошибку. В логах не выдает.

[IHaveAPussy]

procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
begin
Memo1.Lines.Add('FF');
if WSAStartup($101,D)<>0 then
            begin
Memo1.Lines.Add('WSA FAILED');
             end;

A.sin_family:=AF_INET;
A.sin_addr.S_addr:=inet_addr(PAnsiChar(Edit1.Text));
S:=socket(AF_INET,SOCK_STREAM,0);
if S=INVALID_SOCKET then
    begin
    Memo1.Lines.Add('INVALID SOCKET');
    end;

    for j:=1 to 65535 do
    A.sin_port:=htons(j);
    if connect(S,A,sizeof(A))=0 then
    Memo1.Lines.Add('Port' + inttostr(j) + 'Opened');
    end;



end.

П.С. Как сделать код удобночитаемым?

[Yurk@]

Как сделать код удобночитаемым?

ну как минимум пользоваться тегами [ CODE ] ... [ / CODE ] (без пробелов)

1. что есть "A" в коде ?
2. какая ошибка ?

[IHaveAPussy]

var
Form1: TForm1; i:integer;
ip:string; port:array of string;
S:TSocket;
D:WSAData;
A:TSockAddr;

[IHaveAPussy]

В общем всё работает, компилируется. Только вот не показывает открытых портов.

[IHaveAPussy]

Memo1.Lines.Add('Port' + inttostr(j) + 'Opened');
Не показывается.

[eoln]

В цикле для j не хватает begin, а по окончанию блока end
Это было бы видно сразу, если бы код был нормально форматирован

Кроме того, не надо постить несколько сообщений подряд, есть кнопка правка

[Пепел Феникса]

проверка идет лишь один раз для порта 65535, который врятли открыт.

внимательнее с операторными скобками.
цикл то состоит из одной строки лишь.

[IHaveAPussy]

procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
begin
if WSAStartup($101,D)<>0 then
            begin
Memo1.Lines.Add('WSA FAILED');
             end;

A.sin_family:=AF_INET;
A.sin_addr.S_addr:=inet_addr(PAnsiChar(Edit1.Text));
S:=socket(AF_INET,SOCK_STREAM,0);
if S=INVALID_SOCKET then
    begin
    Memo1.Lines.Add('INVALID SOCKET');
    end;
    for j:=100 to 135 do
    begin
    Memo1.Lines.Add('PortChecked');
    A.sin_port:=htons(j);
    if connect(S,A,sizeof(A))=0 then
    Memo1.Lines.Add('Port ' + inttostr(j) + ' Opened');
    end;
end;

end.

Таак, всё компилируется. На отлично. Ввожу локалхост (127.0.0.1).
Вроде программа "подвисает" из-за цикла, но порты открытые не выводятся.

[Пепел Феникса]

а у вас они есть?

[IHaveAPussy]

Да есть. 135 открыт. Проверяю обычным сканнером.
Находит порт 135, 10000, и прочие от торрента и майл.ру агента.
Я не знаю, уже и ребилд делал. Фигня какая-то.