TStringList Oluşturup Datasnap ile göndermek?

[hakanharbeli]

Merhaba Üstatlar,

Şimdi benim şöyle bir sorunum var.

Bir sınav uygulaması yapıyorum.
Cevap şıklarınarı bir liste haline getirip clientteki listboxa göndermek istiyorum

şöyle bir kodum var

function TServerMethods1.Cevaplar(Value: string): string;
var
i:integer;
strm: TStringStream;
cevaplar : tstringlist;
begin
cevaplar:=TStringList.Create;
q1.Close ;
   q1.SQL.Clear ;

q1.SQL.Add(value);
  q1.open;



  try
       while not q1.Eof do
  begin
  Cevaplar.Add(q1.Fields[i].AsString) ;

   q1.Next;
  end;
finally
  q1.Close;
   Result:= cevaplar.Strings//bu kodu ;
end;
end;

Cevaplar.strings kısmında sıkıştım kaldım. Yani aslında bunu nasıl yapabileceğimi bilemiyorum artık beynim yandı.

Sizce bunu nasıl yapabilirim.

Tekrar anlatayım
                                          Client cevaplar Listbox
1. soru cevap b                        b
2.soru cevap a   ====>           a  
3.soru cevap c                          c

gibi cevaplar var ben o harf kısmını alacam datasnaple clientteki listboxa satır satır ekletecem.

Yardımlarınız için şimdiden çok teşekkür ederim projelerinizde kolaylıklar tek başınızaysanız gerçekten zor iş ama keyifli