indy IdTCPServer1 data alma problemi lazarus

[sadikacar60]

arkadaşlar lazarusda server-client denemeleri yapıyorum ama bir sorun yaşıyorum.
gönderdiğim data geliyor gösteriyor ama sonra hataya geçiyor sorun ne olabilir acaba.
saygılarımla

procedure TDML1tcp.tcpGelen1Execute(AContext: TIdContext);
var
Swp:String;
begin
try
AContext.Connection.IOHandler.CheckForDisconnect(True, True);
Swp:=AContext.Connection.IOHandler.ReadLn();
if Swp <>'' then ShowMessage(Swp);
finally
end; 

[sadikacar60]

sorunu buldum client tarafındaymış ama peş peşe bilği göndermede sorun var demekki 
1 veriyi alınca server kapanıyor sanırım.
ikinci satırda ('*dur*') gönderince hataya geçiyor iptal edince hata  vermiyor.

procedure Lane1TCPveriGonder(gln:string);
var
LLine: String;
begin
try
//DMtcp.tcpGonderL1.Host:='127.0.0.1';
//DMtcp.tcpGonderL1.Port:=1561;

if not (DMtcp.tcpGonderL1.Connected) then
  begin
   DMtcp.tcpGonderL1.Connect;
   DMtcp.tcpGonderL1.IOHandler.writeln(gln);
   //DMtcp.tcpGonderL1.IOHandler.WriteLn('*dur*');
  end;
DMtcp.tcpGonderL1.Disconnect;

except     //hata bölümü
    begin
    errorKaydet('Lane1TCPveriGonder');
    end;
    end;
end; 

[sadikacar60]

cevaplarınız için çok teşekkürler @emre21 hocam

önce tek veri göndererek alma olayına odaklandım. dedikleriniz ugulayacağım ama öncelikle çok ilğinç bir durum yaşıyorum.

AContext.Connection.IOHandler.CheckForDisconnect(True, True);
Swp:=AContext.Connection.IOHandler.ReadLn();
if Swp <>'' then
          begin
          tcp_GelenVeri[1]:=Swp;
          Timer_AnaVerigelisi.Enabled:=true;
          //ShowMessage(Swp);
          end; 

yukardaki kodda showmessagedevrede iken timer çalışıyor problem yok ama mesaj devreden çıkınca timer devreye girmiyor bu nasıl olabilir.

birde data gelince global değişkene değer atasın öyle timer devreye alayım bakalım ne olacak
saygılarımla

[sadikacar60]

sorunu global bir değişeknle çözdüm timer sürekli devrede kalıyor.
şu anda tek gönderim için sorun yok dizi veya birden fazla gönderimi deneyeceğim

saygılarımla

AContext.Connection.IOHandler.CheckForDisconnect(True, True);
Swp:=AContext.Connection.IOHandler.ReadLn();
if Swp<>'' then
          begin
          tcp_GelenVeri[1]:=Swp;
          drmGelen:=1;
          end;