Что за искажения происходят при передаче bmp-картинки по TCP?

[idip]

Обнаружил странную вещь. При передаче bmp-изображения по TCP-протоколу клиенту приходит искажённая картинка. Род искажений - цвета на полученной bmp-картинке, как в восьмибитном режиме. Хотя, сохраняя на диске программой-сервером картинку из потока перед отправкой клиенту, получаю нормальное изображение, какое у неё и есть. Кто-нибудь сталкивался с подобным? В чём причина? Как исправить?

[SERG1980]

А код покажите?

[idip]

Код следующий.

Код у клиента:

procedure TForm1.Button1Click(Sender: TObject);
var Stream: TMemoryStream;
begin
IdTCPClient1.Host:=Edit2.Text;
IdTCPClient1.Connect;
IdTCPClient1.Write(Edit1.Text); //команда серверу на присылку картинки
Stream:=TMemoryStream.Create; //создаём поток
Stream.Position:=0;
IdTCPClient1.ReadStream(Stream); //считываем принятую картинку в поток
Stream.SaveToFile('File.bmp'); //сохраняем из потока
Stream.Clear;
Stream.Free;
IdTCPClient1.Disconnect;
end;

Код у сервера (отрывок):

Stream:=TMemoryStream.Create; //создаём поток
Stream.Position:=0;
Bitmap.SaveToStream(Stream); //сохраняем в поток из bitmap
Bitmap.SaveToFile('File.bmp'); //сохраняем перед отправкой на диске для контроля
Connection.WriteStream(Stream,True, True); //отправляем