procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
begin
    ComPort.ReadStr(Str, Count);
    write(myFile, str)
end;

.
.
procedure TFserver.ComPortRxChar(Sender: TObject; Count: Integer);
var str:string;
begin
    ComPort.ReadStr(Str, Count);

    //simpan ke file txt
    if checkbox2.Checked then write(myFile,str);

    //kumpulkan data untuk disimpan ke dtabase...
    data:=data+str;
end;

procedure TFserver.Timer1Timer(Sender: TObject);
begin
   memo1.Text:=data;
   data:='';
end;

procedure TFserver.Memo1Change(Sender: TObject);
var i,baris:integer;
   ALineStr: String;
   AValidData:boolean;
begin
   baris:=memo1.Lines.Count;
   for i:=0 to baris-1 do
   begin
       ALineStr:= Memo1.Lines[i];

       //filter data yang valid saja   
       AValidData := (ALineStr[1] in ['0'..'9']) and (ALineStr[2] in ['0'..'9']) and (length(ALineStr)>=panjang_data);

      //simpan log ke database jika checkbox dbase dicawang
      if checkbox1.Checked then
      begin
         if AValidData then
         begin
             with Zquery1 do
             begin
                   
                     ... simpan data ke dtabase.......

             end;
         end;
      end;
   end;
end;