请帮忙将这段c++ builder code 翻译成 delphi code

[agangr]

//函数申明
int PlpOpen(unsigned int baudrate);
void PlpClose();
int PlpRead(unsigned char *portname, unsigned char *addr, unsigned char *buf, int *readlen);
int PlpRead(unsigned char *portname, unsigned char *addr, unsigned char *buf, int readlen);
int PlpReadAppoint(unsigned char *portname, unsigned char addr, unsigned char *buf, int n);
int PlpWrite(unsigned char *portname, unsigned char addr, unsigned char *buf, int n);

//函数调用

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int ret1, ret2, readlen;
unsigned char addr, portname[10];
unsigned char rbuf[260];

Timer1->Enabled = false;
Timer1->Interval = 50;

readnext:
ret1 = PlpRead(portname, &addr, rbuf, &readlen);
if( readlen == 0 || ret1 < 0 )
{
Timer1->Enabled = true;
return;
}
do{
ret2 = PlpWrite(portname,addr,rbuf,readlen);
}while( ret2 < readlen);

if( ret1 > 0 ) goto readnext;
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

[lxpbuaa]

Delphi区我已经给你回答了，别到处乱发了。

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[zjqyb]

Function PlpOpen(baudrate:DWORD):integer;
Procedure PlpClose();
Function PlpRead(portname,addr, buf:pchar;readlen:PINT):integer;
Function PlpRead(portname,addr, buf:pchar;readlen:integer):integer;overload;
Function PlpReadAppoint(portname, addr, buf:pchar;n:integer):integer;
Function PlpWrite(portname, addr, buf:pchar;n:integer):integer;

procedure TForm1.Timer1Timer(Sender:TObject );
var
ret1, ret2, readlen:integer;
addr:char;
portname:array[0..9] of char;
rbuf:array[0..259] of char;
begin
Timer1.Enabled := false;
Timer1.Interval := 50;
repeat
ret1: =PlpRead(portname, @addr, rbuf, @readlen);
Timer1.Enabled:=( readlen = 0) or (ret1 < 0 );
if not Timer1.Enabled then
exit;
repeat
ret2 := PlpWrite(portname,addr,rbuf,readlen);
until ret2 >= readlen;
until ret1 <= 0 ;
Timer1.Enabled := true;
end;