Yo hice una aplicación con basculas y use estos componentes para leer el peso
http://sourceforge.net/projects/tpapro/
El componente se llama TComPort
Código Delphi
[-]
comBalanza.Port:= cbbPuerto.Text;
comBalanza.Open;
comBalanza.WriteStr('P');
procedure TfrmPrincipal.comBalanzaRxChar(Sender: TObject; Count: Integer);
function IsNumeric(const s: string): boolean;
var
i: integer;
begin
Result := True;
for i:=1 to length(s) do
if not (s[i] in ['0'..'9','.']) then
begin
Result := False;
Break; end;
end;
var
I : Word;
C : Char;
Str : string;
begin
comBalanza.ReadStr(Str, Count);
for I := 1 to Count do begin
C := Str[i];
case C of
#13:if sPeso<>'' then begin
if IsNumeric(Trim(LeftStr(sPeso, 8))) then
edtPeso.Text := LeftStr(sPeso, 8)
else
edtPeso.Text:= ' 0.000 ';
lblMedida.Caption := RightStr(Trim(sPeso), 2);
sPeso := '';
end;
#0..#12,#14..#31 : ;
else sPeso := sPeso + C;
end;
end;
end;