在进行网络查询时，如果一定时间内没有结果(50分)

在进行网络查询时，如果一定时间内没有结果（可能因为网络堵塞），怎样才能给出提示并终止这次查询，能不能给出提示
最好有源码，就剩这么多分了。

我不是很懂,好像是用timer控件计时,到时间如果没完成就执行你想要的操作.

我也知道要用到Timer，可是就是不知道该如何处理

老兄,你要学会看帮助,哪怕英文不好也要坚持看,看多了其实很简单,就是几个术语
再加普通英语,不难的.
我将DELPHI帮助中例子加工了一下,供你参考.
var
Form1: TForm1;
TimeOver: Word;


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.DeviceType := dtCDAudio;
MediaPlayer1.Open;
MediaPlayer1.Play;
TimeOver:=0;
Timer1.Enabled := true;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TimeOver = 10 then
begin
MediaPlayer1.Eject;
MediaPlayer1.Close;
{ disable the timer, as we are done }
Timer1.Enabled := False;
end
else
Inc(TimeOver);
end;

我懂了，有时真的需要这样的帮助

谢谢