function TRelayer.DeliverMessagePart(Chunk: TStrings): boolean;
{ Sends a chunk of the message. }
+var i: integer;
begin
+ { Check for lines starting with dots. }
+ for i:= 0 to Chunk.Count - 1 do
+ if (Length(Chunk.Strings[i]) > 0) and (Chunk.Strings[i][1] = '.') then
+ Chunk.Strings[i]:= '.' + Chunk.Strings[i];
+
+ { Send text. }
Result:= TCP.WriteBuffer(PChar(Chunk.Text), Length(Chunk.Text)) <> -1;
end;