From VB to Delphi

[sirius]

I suppose that MSComm1, Text1 and lblTP are special components. The last one could by a label

I'm not sure. but maybe this could be a translation:

Delphi-Quellcode:

procedure cmdTPButtonClick(...); //whatever the click-event is...
//defining temporal/local variables
var myString:string
    TP_string:string;
    Temp:string;
    TP_float:double;
    B1:string;
    B2:double;
begin
  myString:=''; //This is not neccessary if this variable stays local.
  MSComm1.output:='0111' + vbCR; // vbCR?
  myString:=MSComm1.Input;
  Test1.Text:=myString;
  Temp:=MidStr(myString,12,3);
  if pos('>',myString) > 0 then 
  begin
    B1:=MidStr(MyString, 7, 2);
    B2:=strtoint('$'+B1);
    TP_float:=B2/256*100;
    TP_string:=inttostr(round(TP_float));
    lablTP.Caption:=TP_string + ' %';
  end; //Else - part is empty
end;

I don't know if some of those temporal variables are also used global. vbCR is either a global variable too or it is a special constant.