ClientDataSet image field yükleme (DataSnap)

[hi_selamlar]

(25-01-2023, Saat: 14:02)yemre Adlı Kullanıcıdan Alıntı:

procedure TForm3.Button2Click(Sender: TObject);
        var
siras: Integer;
i, n: Integer;
msFoto: TMemoryStream;
begin
UniQuery1.Close;
UniQuery1.SQL.Clear;
UniQuery1.SQL.Add('select * from  data_ilan ');
UniQuery1.Open;
n := UniQuery1.RecordCount;

   for i := 0 to n - 1 do
   begin
   //ShowMessage('0');
   msFoto := TMemoryStream.Create;
   try
    //ShowMessage('1');
    siras := UniQuery1.FieldByName('sira').AsInteger;
    UniQuery1.Next;
    TBlobField(UniQuery1.FieldByName('pic')).SaveToStream(msFoto);
    msFoto.Position := 0;
    //ShowMessage('2');
    case siras of
      1:
        begin
        ShowMessage('3');
          Memo1.Lines.Clear;
          Memo1.Lines.Add(UniQuery1.FieldByName('metin').AsString);
          Image1.Bitmap.LoadFromStream(msFoto);
        end;
      2:
        begin
          Memo2.Lines.Clear;
          Memo2.Lines.Add(UniQuery1.FieldByName('metin').AsString);
          Image2.Bitmap.LoadFromStream(msFoto);
        end;
      3:
        begin
          Memo3.Lines.Clear;
          Memo3.Lines.Add(UniQuery1.FieldByName('metin').AsString);
          Image3.Bitmap.LoadFromStream(msFoto);
        end;
      4:
        begin
          Memo4.Lines.Clear;
          Memo4.Lines.Add(UniQuery1.FieldByName('metin').AsString);
          Image4.Bitmap.LoadFromStream(msFoto);
        end;
      5:
        begin
          Memo6.Lines.Clear;
          Memo6.Lines.Add(UniQuery1.FieldByName('metin').AsString);
          Image6.Bitmap.LoadFromStream(msFoto);
        end;
      6:
        begin
          Memo5.Lines.Clear;
          Memo5.Lines.Add(UniQuery1.FieldByName('metin').AsString);
          Image5.Bitmap.LoadFromStream(msFoto);
        end;
    end;
   finally
  msFoto.Free;
  end;
end;
end;

üstadım kusura bakmayın benim hatam msFoto := Nil; bu satırı silmemişim şuan resimler yüklendi ama veritabanımdaki sıraya göre yüklenmiyor karışık yüklüyor.Benim istediğim siras 1 ise memo1 e ve ımage1 e veritabanındaki sira 1 olan yerdeki resim ve yazının gelmesi

Merhabalar,

UniQuery1.First;
While not UniQuery1.EOF do
begin
    try
        ....
        ....
        ....
        ....
    finally
        msFoto.Free;
    end;
       
    UniQuery1.Next;
end;

Kolay gelsin.