Дополнительный поток TThread

[qZED]

Дано: Главная форма, компонент TComport. В ком порте считываются данные, если приходит определенная строка строка - нужно создать еще один поток и считывать из другого ком порта до тех пор пока в первом ком порте не придет определенная строка.

    RecordThread := TRecordWAVE.Create(True); 
    RecordThread.Priority := tpNormal;         
    RecordThread.FreeOnTerminate := True; 
    RecordThread.idModule := id;
    RecordThread.Resume;

procedure TRecordWAVE.Execute;
var
  Buf : array [1..320] of Char;
  Buffer : String;
  Port : TComPort;
  S : String;
begin
  ReadBuffer := '';
  Buffer := '';
  Port := TComPort.Create(frmMain);
  Port.Port := 3;
  Port.Open;

  repeat
        FillChar(Buf, 320, 0);
        Port.Read(Buf, 320);
        Buffer := Buffer + Buf;
        Application.ProcessMessages;
        Sleep(20);
  until [Переменная которая считывается в первом COM порту];

  Port.Close;
end;

Помогите реализовать...

[qZED]

Сообщение от qZED

Дано: Главная форма, компонент TComport. В ком порте считываются данные, если приходит определенная строка строка - нужно создать еще один поток и считывать из другого ком порта до тех пор пока в первом ком порте не придет определенная строка.

    RecordThread := TRecordWAVE.Create(True); 
    RecordThread.Priority := tpNormal;         
    RecordThread.FreeOnTerminate := True; 
    RecordThread.idModule := id;
    RecordThread.Resume;

procedure TRecordWAVE.Execute;
var
  Buf : array [1..320] of Char;
  Buffer : String;
  Port : TComPort;
  S : String;
begin
  ReadBuffer := '';
  Buffer := '';
  Port := TComPort.Create(frmMain);
  Port.Port := 3;
  Port.Open;

  repeat
        FillChar(Buf, 320, 0);
        Port.Read(Buf, 320);
        Buffer := Buffer + Buf;
        Application.ProcessMessages;
        Sleep(20);
  until [Переменная которая считывается в первом COM порту];

  Port.Close;
end;

Помогите реализовать...

Реализовал.. как удалить тему?