Fórum O que esta errado que esta dando erro de violação #530228

Bom dia, qual o objetivo da aplicação ?

P2 Obrigado pela atenção

Na verdade esse é só um pedaço da aplicação , é que vai vi uma string pela porta serial e esse trecho era para passar a string para uma array pela tabela ascii

Porem domingo a noite já tinha visto uma solução , e descobri que não poderia o valor esta vazio .........

procedure TForm1.Button1Click(Sender: TObject);
var
Dados : string;
numeros : array [1..52] of byte;
i : byte;
// CLICK NO BOTÃO
begin
memo1.Lines.Clear;
memo2.Lines.Clear;
memo3.Lines.Clear;
memo4.Lines.Clear;
memo5.Lines.Clear;
memo6.Lines.Clear; // debug
dados := (edit6.Text);
comport1.ShowSetupDialog; //abre janela serial
comport1.close; // fecha porta serial
comport1.Open; // abre porta serial
comport1.Connected:= true; // conecta porta serail
ComPort1.WriteStr(char(2)+ char(4)+ char(3));
// envia caracteres

//ComPort1.ReadStr(Dados,50); /// posteriormente habilitar

for i := 1 to 50 do //contagem de 1 a 50
begin
numeros[i] := ord(Dados[i]);

memo6.Lines.Add(inttostr((numeros[i]))); // debug
end;

Exatamente Valquiria

Obrigado Pela Atenção ;)