Kod: Tümünü seç
procedure TOnayApi.Read(Sender: TObject; Socket: TCustomWinSocket);
var
msg, neden:string;
begin
neden:=Socket.ReceiveText; // (neden)
msg:='Bilgisayarınız sunucu yetkilileri tarafından yasaklanmıştır.'+#13+''+#13+'Neden : - '+neden+' '+#13+''+#13+'Herhangi bir konuda bizimle iletişime geçiniz. ';
Application.Messagebox(PChar(msg), 'PC Banlanmiş!', mb_iconWarning); halt; exit; // (ban)
end;