Kod w Delphi do obsługi terminala RS232 - szukam przykładu

Witam!
Czy pisał ktoś w delphi terminal rs i podzielił by się kodem (progiem)?
Pozdrawiam

Ja pisałem

program w drugim poście coś napewno pomoże:
https://www.elektroda.pl/rtvforum/topic514127.html
tam jest pokazane sterowanie jednym z pinów w comie, za pomocą comportu. W następnym poście jest comport do ściągnięcia.

Jeśli chodzi o sterowanie RS232, to istotne komendy to:
comport1.open;
comport1.close;
ComPort1.WriteStr('d');
ComPort1.ReadStr(zmienna_string);
comport1.write:=(zmienna_integer, 1);
comport1.read:=(zmienna_integer, 1); to należy umieścić w zdarzeniu comport1 OnRxChar.

Witam.
Ściągnij sobie komponent comport.
Na forme wstaw 2 x memo, 1 x edit, 3 x buton i comport.

'button1 do łączenia i rozłączenia
'button2 do wysyłania
'button3 do ustawienia portu
'edit1 do wpisania tekstu jaki chcesz wysłać
'memo1 do odebrania tekstu
'memo2 do "pomocy" ustawione jako niewidoczne

'zdarzenie do ustawienia portu
procedure TForm1.Button3Click(Sender: TObject);
begin
ComPort1.ShowSetupDialog;
end;

'zdarzenie do połączenia i rozłączenia (otwarcie i zamknięcie portu)
procedure TForm1.Button1Click(Sender: TObject);
begin
if ComPort1.Connected then
ComPort1.Close
else
ComPort1.Open;
end;

'zdarzenie do wysłania tekstu z edita
procedure TForm1.Button2Click(Sender: TObject);
begin
comport1.writestr(edit1.text+#13);
end;

'zdarzenia zmieniające caption na butonie1
procedure TForm1.ComPort1AfterClose(Sender: TObject);
begin
button1.Caption:='Połącz';
end;
procedure TForm1.ComPort1AfterOpen(Sender: TObject);
begin
button1.Caption:='Rozłącz';
end;

'zdarzenie do odebrania tekstu i wpisania do memo1
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var s: String;
begin
comPort.ReadStr(s, Count);
memo2.Text:=memo2.Text+s;
if copy(memo2.Text,length(memo2.Text)-1,1)=#13 then
begin
memo1.Lines.Add(memo1.Lines.Strings[0]);
memo2.Clear;
end;
end;

'zdarzenie do ustawień początkowych memo, buton i edit na początku programu
procedure TForm1.FormCreate(Sender: TObject);
begin
memo2.visible:=false;
memo2.clear;
memo1.clear;
button1.caption:='Połącz';
button2.caption:='Wyślij';
button3.caption:='Ustawienia';
end;

Pozdrawiam.

Dzięki już wszysztko mam dziękuje;)