delphi中如何在一个procedure中调用另一个procedure

delphi中怎么在一个procedure中调用另一个procedure
我是小白，也不学编程的，只是设备通信需要一个软件，求大神解答

procedure TForm1.Button2Click(Sender: TObject);
var
    str:string;
begin
    str:='00 00 00 00 00 06 01 03 00 02 00 02';
    Socket.SendText(HexStrToStr(str));
  end;

end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  str,Data0,Data1,Data2:string;
  Data0int,Data1int,Data2int,Position:integer;
begin
  str:=StrToHexStr(Socket.ReceiveText) ;
  Memo1.Lines.Add(Str);
end;

要求是procedure TForm1.ClientSocket1Read(Sender: TObject;Socket: TCustomWinSocket);所执行的过程在procedure TForm1.Button2Click(Sender: TObject);中执行      


求大神帮忙
------解决思路----------------------
[code-delphi]
procedure TForm1.Button2Click(Sender: TObject);
var str:string;
begin
  str:='00 00 00 00 00 06 01 03 00 02 00 02';
  Socket.SendText(HexStrToStr(str));
  Memo1.Lines.Add(StrToHexStr(Socket.ReceiveText));
end;[/code]
直接运行上述代码试试。
------解决思路----------------------

引用:

[code-delphi]
procedure TForm1.Button2Click(Sender: TObject);
var str:string;
begin
  str:='00 00 00 00 00 06 01 03 00 02 00 02';
  Socket.SendText(HexStrToStr(str));
  Memo1.Lines.Add(StrToHexStr(Socket.ReceiveText));
end;[/code]
直接运行上述代码试试。

发送后加上延时可以用。
------解决思路----------------------
虽然是procedure,但一看就是属于某个事件,如果没有那个事件发生而强行调用,结果会是如何