SSL_read прочитать многострочный ответ

[mimo]

Здравствуйте. Такой вопрос

WriteToSSL(con,'RETR 1');
...
function ReadFromSSL(con: Pointer):AnsiString;
var
len,num : integer;
Begin
FillChar(Buffer,SizeOf(Buffer),#0);
len:= SSL_read(con, Buffer, sizeof(Buffer)-1); //18
num:=  sizeof(Buffer); // 1025
Result:=AnsiString(Buffer);
End;

Читаю письмо с ящика. Получаю ответ после этой команды
('+', 'O', 'K', ' ', '2', '6', '8', '2', ' ', 'o', 'c', 't', 'e', 't', 's', '.', #13, #10, #0 ...)
и все, но если затем опять сделать ReadFromSSL, то я получу следующую строку письма. Но не могу же я делать ReadFromSSL подряд неизвестно сколько раз. Как узнать сколько еще информации можно получить от сервера?. Может в цикле, может за раз...

[Fr0sT]

Читать спецификации протокола POP